(defparameter *top-goals*
	(freqlist-to-problist '( ;; converts the numbers to probs
		((lotsgoals ?loc) . 1)
	))
)

(make-domain 'monroe '(
;;; Main goals
	(:method (lotsgoals ?loc)
		normal
		()
		(
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
			(testgoal ?loc)
		)
	)
;;;;;;;;;;;;;;; 1
	(:method (testgoal ?loc)
		normal
		()
		((subgoal1 ?loc))
	)
;;;;;;;;;;;;;;; 2
	(:method :weight 10 (testgoal ?loc)
		weird
		()
		((subgoal2 ?loc))
	)
;;;;;;;;;;;;;;;; subs
	(:method (subgoal1 ?loc)
		normal
		()
		((!none))
	)
	(:method (subgoal2 ?loc)
		normal
		()
		((!none))
	)
;;; Operators
	(:operator (!none)
		()
		()
		()
	)
)) ;; end defdomain
